TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/CRS/crs12.d81/ribit76.lnx/ribit.maker 7.5.prg

Commodore BASIC | 2009-10-10 | 11KB | 375 lines

5 POKE53272,23:CLR:FG=0
10 POKE53280,0:POKE53281,0:G1$="[147] [210][201][194][201][212] [205][193][203][197][210]     V7.5                   "
15 G2$="[159][145] [198][207][210] [210][201][194][201][212] [194][194][211] 7.5+  C.1986 [202].[215]. [198]ULMER ":GOSUB1630
20 PRINT"[155]       [201][206][211][197][210][212] [210][201][194][201][212] [198][201][204][197] [196][201][211][203] [206][207][215]":PRINT
25 PRINT:PRINT"      [155] [205][193][203][197][210] [205][197][206][213]: ":PRINT"       [183][183][183][183][183][183][183][183][183][183][183]"
30 PRINT"[158]       [193]) [195]REATE A [198]ILE [196]ISK"
35 PRINT"       [195]) [198]ILE [196]ESCRIPTIONS"
40 PRINT"       [199]) [195]HANGE [211]UB[194]OARD [206]AMES
45 [153]"       RIGHT$) VALDIT (null)YSTEM ASCILES
50 PRINT"       [208]) [208]OLLING [211]YSTEM
55 [153]"       (null)) (null)ALIDATE ASCILE STR$ISK "
60 [153]"       (null)) (null)OAD (null)IBIT PEEKPEEK(null)"
65 [161]A$:[139]A$[178]""[167]65
70 [139] A$[178]"Q"[167] 930
75 [139]A$[178]"A"[167]125
80 [139]A$[178]"C"[167]120
85 [139]A$[178]"G"[167]2000
90 [139]A$[178]"I"[167]1360
95 [139]A$[178]"P"[167]1770
105 [139]A$[178]"V"[167]115
110 [137] 65
115 [159]15,8,15:[152]15,"V":[160]15:[137]65
120 FG[178]1:[137]305
125 [153]"LOAD":[153]"      (null)LACE A (null)EW STR$ISK IN STR$EVICE 8":[153]
130 [153]"    (null)ARNING:(null)HIS STR$ISK (null)ILL PEEKE (null)EWED"
135 [153]"        <LEFT$IT ATNNY (null)EY (null)HEN (null)EADY>"
140 [153]"           <LEFT$IT 'A' TO ABORT>"
145 [161]A$:[139]A$[178]""[167]145
150 [139] A$[178]"A"[167]5
155 [159]15,8,15:[152]15,"N0:RIBIT FILES 7.5,V7":[160]15
160 A$[178]"HOWDE":B$[178]"LEFT$OWDE!":[141]195:A$[178]"BYE":B$[178]"PEEKYE-PEEKYE!":[141]195
165 A$[178]"NEW":B$[178]"LEFT$ELLO (null)EW (null)SER!":[141]195:A$[178]"POLL":B$[178]"(null)HIS IS THE (null)OLL":[141]195
170 A$[178]"SB#1":[141]200:A$[178]"SB#2":[141]200:A$[178]"SB#3":[141]200
175 A$[178]"SB#4":[141]200:A$[178]"SB#5":[141]200:A$[178]"SB#6":[141]200
180 A$[178]"NOTICES":B$[178]"(null)ELCOME PEEKACK!":[141]195
185 A$[178]"MAIL LIST":[141]230:A$[178]"MAIN":[141]240:A$[178]"MB#":[141]1730
190 A$[178]"RESULTS":[141]1760:A$[178]"BULLD":FL[178]1:[141]200:A$[178]"BOX NAMES":[137]1635
195 [159]2,8,2,"0:"[170]A$[170]",S,W":[152]2,B$:[160]2:[142]
200 [159]2,8,2,"0:"[170]A$[170]",S,W"
205 [152]2,"SYS(null))(null)AIN (null)ENU        "
206 [152]2,"SYS(null))(null)AGING (null)OGGLE    "
210 [152]2,"SYS(null))(null)IGN (null)FF         ":[139]FL[167]FL[178].:[137]220
215 [152]2,"SYS(null))(null)UBOARD (null)ESSAGES "
220 [152]2,">":[160]2:[142]
225 [152]2,N:[160]2:[142]
230 [159]2,8,2,"0:"[170]A$[170]",S,W"
235 [152]2,"^":[160]2:[142]
240 [159]2,8,2,"0:"[170]A$[170]",S,W"
245 [152]2,"PRINT[ATN] (null)UBPEEKOARDS         "
250 [152]2,"PRINT[PEEK] (null)YSTEM PEEKULLETINS  "
255 [152]2,"PRINT[LEN] LENHAT              "
260 [152]2,"PRINT[VAL] VAL-(null)AIL            "
265 [152]2,"PRINT[ASC] ASCILE (null)RANSFER     "
270 [152]2,"PRINT[CHR$] ASCEEDBACK TO (null)YSOP "
275 [152]2,"PRINT[(null)] (null)ARAMETERS (null)ENU   "
280 [152]2,"PRINT[(null)] (null)IGN (null)FF          "
285 [152]2,"PRINT[(null)] (null)SER (null)OG          "
290 [152]2,"PRINT[(null)] (null)OLL              "
295 [152]2,"PRINT[(null)] E(null)PERT            "
300 [152]2,"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[152]2,">":[160]2:[142]
305 [153]"LOAD (null)AIN=(null)AIN (null)ENU":[153]" HOWDE=(null)ITLE (null)AGE"
310 [153]" PEEKULLD=(null)YSTEM PEEKULLETINS":[153]" PEEKYE=(null)IGN-(null)FF (null)ESSAGE
315 PRINT" [211]B#X=[211]UB-[194]OARDX [196]IRECTORY"
320 PRINT"MB#=[211]YSTEM INFO FOR ALL MAIL BOXES,MESSAGES TO [211]YSOP,# OF USERS IN LOG
325 [153]" (null)AIL (null)IST=(null)ESSAGES (null)AITING ASCOR (null)"
330 [153]" (null)OTICES=STR$ISPLAYED ATNFTER (null)IGN-ON"
335 [153]" NEW=(null)ESSAGE DISPLAYED TO FIRST TIME         CALLERS
340 PRINT" [208]ROGRAM [195]REATES [213]SER [204]OG"
345 PRINT" [194]ULLETINS ARE THE [204]ETTERS [193]-[208]"
350 PRINT" [211]UB-[194]OARD [194]ULLETINS ARE THE [204]ETTERS"
355 PRINT" [193]-[208] [211]UFFIXED BY THE [211]UB-[194]OARD [206]UMBER."
360 PRINT" I.E. [211]UB-[194]OARD #1 [194]ULLETIN 'A' [211]HOULD"
365 PRINT" [194]E [195]ALLED 'A1' [207]N [217]OUR [196]ISK."
370 GETA$:IFA$=""THEN370
375 GOTO 5
380 PRINT"[147]    [213]PPER[195]ASE [199]RAPHICS? ([217]/[206])":GETA$:IFA$=""THEN380
385 IFA$="Y"ORA$="[217]"THENUP=142:GOTO395
390 UP=14
395 IFUP=142THEN430
400 PRINTCHR$(UP)"[147][197]NTER [194]ULLETIN [194]ELOW..[205]AX # OF LINES"
405 PRINT"IS 400. [197]NTER '+' AT THE BEGINNING OF "
410 PRINT"A LINE WHEN COMPLETELY FINISHED."
415 PRINT"240[146][158] CHARACTERS [205]AXIMUM PER LINE!"
420 PRINT""
425 POKE49,PEEK(47):POKE50,PEEK(48):DIM SM$(400):PRINT"[194]EGIN [206]OW:":GOTO460
430 PRINTCHR$(UP)"[147]ENTER BULLETIN BELOW..MAX # OF LINES"
435 PRINT"IS 400. ENTER '+' AT THE BEGINNING OF "
440 PRINT"A LINE WHEN COMPLETELY FINISHED."
445 PRINT"240[146][158] CHARACTERS MAXIMUM PER LINE!"
450 PRINT""
455 POKE49,PEEK(47):POKE50,PEEK(48):DIM SM$(400):PRINT"BEGIN NOW:"
460 PRINT
465 LN=0
470 LN=LN+1
475 PRINTLN;"[157]:";
480 POKE212,0:GET B$:IF B$="" THEN 480
485 IF B$="+"THENPRINTCHR$(13):LN=LN-1:GOTO550
490 L=LEN(SM$(LN))
495 IFL=240THENSM$(LN)=SM$(LN)+CHR$(13):GOTO535
500 IF B$=CHR$(20)ANDL=<0THEN480
505 IF B$=CHR$(20)ANDL>0THENL=L-1:SM$(LN)=LEFT$(SM$(LN),L):PRINTB$;:GOTO480
510 IFB$="[147]"ORB$=""ORB$=""ORB$="[145]"ORB$="[157]"ORB$=""THENPOKE212,1:GOTO520
515 IF B$=CHR$(13)ANDLEN(SM$(LN))<>0THENPRINT:GOTO470
520 SM$(LN)=SM$(LN)+B$
525 PRINT B$;
530 GOTO 480
535 REM
540 PRINT:IFEN<>1THEN 470
545 IFEN=1THEN820
550 GOTO 575
555 PRINTCHR$(20);
560 L=LEN(SM$(LN))-1:T$=SM$(LN)
565 SM$(LN)=LEFT$(T$,L)
570 GOTO 530
575 PRINT"[147][200]ERE'S HOW IT LOOKS:"
580 PRINT"PRESS <SPACE> TO PAUSE."
585 FOR DM=1 TO LN
590 PRINT SM$(DM)
595 FOR TT=1 TO 200:NEXTTT
600 GET A$:IF A$=" " THEN 615
605 NEXT DM
610 GOTO 630
615 GET A$:IF A$="" THEN 615
620 IF A$=" " THEN 605
625 GOTO 615
630 IFFL=1THENFL=0:RETURN
635 PRINT"O.K.? (Y/N/A-BORT)"
640 GET A$:IF A$="" THEN 640
645 IF A$="A"THEN 5
650 IF A$="Y"THEN 880
655 IF A$<>"N"THEN 640
660 GOSUB 665:GOTO685
665 FOR DM=1 TO LN
670 PRINT "[204]INE#";DM;"[157]:";:PRINTSM$(DM)
675 FOR TT=1 TO 200:NEXTTT
680 NEXT DM:POKE212,0:RETURN
685 PRINT"[155]-------------------------"
690 PRINT"     S) SAVE MESSAGE"
695 PRINT"     C) CONTINUE"
700 PRINT"     E) EDIT LINE"
705 PRINT"     L) LIST LINES"
710 PRINT"     O) START OVER"
715 PRINT"     D) DISPLAY
720 [153]"     A) ABORT"
725 [153]"-------------------------"
730 [153]"WHICH>"
735 [161] A$:[139] A$[178]"" [167] 735
740 [139] A$[178]"S" [167]575
745 [139] A$[178]"D" [167]FL[178]1:[141]575:[153]"":[137]685
750 [139] A$[178]"C" [167]SM$(LN[170]1)[178]"":[137]535
755 [139] A$[178]"A" [167]905
760 [139] A$[178]"O" [167]380
765 [139] A$[178]"L" [167] [141] 665:[137]685
770 [139] A$[178]"E" [167] 785
775 [137] 735
780 [141] 665
785 [133]"EDIT LINE#? (0=MENU)";EL
790 [139] EL[177]LN [167] 785
795 [139] EL[178]0 [167] 685
800 [153]"(null)INE";EL;" LENURRENTLY (null)EADS:"
805 [153]:[151]212,1:[153] SM$(EL)
810 SM$(EL)[178]"":[153]:[153]"VALNTER '+' TO VALND....":[153]"VALNTER NEW LINE BELOW:"
815 RP$[178]"":[137]1670:[143]   HL=LN:LN=EL:EN=1:GOTO7700
820 LN[178]HL:EN[178]0:[137]780
835 [159]15,8,15:[159]3,8,3,"0:"[170]FL$[170]",S,R":[143] MENU READER**
840 [132]15,A:[139]A[179][177]0[167][153]"VALRROR!!!":[129]T[178]1[164]2000:[130]T:[160]15:[137]5
845 [134] MO$(26)
850 MO[178]0
855 MO[178]MO[170]1
860 [132]3,MO$(MO):[139]ST[179][177]0[167]875
865 [139] MO$(MO)[178]">"[167] 875
870 [137] 855
875 [160]3:[160]15:[142]
880 [153]"(null)AVING MESSAGE..."
885 [159] 3,8,3,"@0:"[170]FL$[170]",S,W"
890 [152]3,[199](UP):[129] SF[178]1 [164] LN
895 [152]3,SM$(SF)
900 [130]SF:[152]3,[199](14):[152]3,[199](14):[160]3:[142]
905 [153]"ATNRE YOU SURE ((null)/(null))?"
910 [161] A$:[139] A$[178]"" [167] 910
915 [139] A$[178]"Y"[167] 5
920 [139] A$[178]"N"[167] 685
925 [137] 910
930 [153]"LOAD":[153]"         ASCILE STR$ISK IS (null)OW (null)EADY"
935 [153]:[153]" RIGHT$NSERT (null)RIGHT$PEEKRIGHT$(null) (null)ROGRAM STR$ISK IN STR$EVICE 8  "
940 C$[178][199](34)
945 [153]:[153]"         LEFT$IT ANY KEY TO CONTINUE"
950 [161] A$:[139] A$[178]"" [167] 950
955 [153]"LOADING":[153]"LOAD"C$"RIBIT CGB*"C$",8,1ONONON":[128]
965 [159]15,8,15:[159] 3,8,3,"0:MB#,S,R"
970 [132]15,A:[139]A[179][177]0[167][153]"VALRROR!!!":[129]T[178]1[164]2000:[130]T:[160]15:[137]5
975 [129]X[178]1[164]12:[132]3,B$:[130]
980 [129]X[178]1[164]6:[132]3,NA$(X)
985 [130]
990 [160]3:[160]15:[142]
995 [153]"VALNTER (null)AME FOR (null)UB-BOARD";SUB:[133]SB$
1000 MO$(SM)[178]"["[170][199](64[170]SM)[170]"] "[170]SB$:[141]1005:[137]1030
1005 [159] 2,8,2,"@0:MAIN,S,W":MO[178]0
1010 MO[178]MO[170]1:[152]2,MO$(MO)
1015 [139] MO$(MO)[178]">"[167] 1025
1020 [137] 1010
1025 [160]2:[142]
1030 [153]"LOAD(null)UB-BOARD TITLE INSTALLED IN MAIN MENU."
1035 [153]"(null)OW YOU MUST CREATE A MENU FOR THE"
1040 [153]"(null)UB-BOARD. VALNTER '+' TO SIGNAL END OF"
1045 [153]"MENU NAME ENTRY."
1050 [134] SM$(24):[129] T[178]1 [164] ([195](SB$))[170]2:SM$(1)[178]SM$(1)[170]"=":[130]T
1055 SM$(2)[178]" "[170]SB$[170]" ":[129] T[178]1 [164] [195](SB$)[170]2:SM$(3)[178]SM$(3)[170]"=":[130]T
1060 [129]MS[178]1[164]16:[139] MS[178]4 [167] 1075
1065 [153]"[";[199](MS[170]64);"] ";:[133] SM$(MS[170]3):[139]SM$(MS[170]3)[178]"+"[167]1080
1070 SM$(MS[170]3)[178]"["[170][199](MS[170]64)[170]"] "[170]SM$(MS[170]3)
1075 [130] MS
1080 MS[178]MS[171]1:SM$(7)[178]"[D] MAIN DIRECTORY":SM$(MS[170]4)[178]"[S] SIGN OFF"
1085 SM$(MS[170]5)[178]SM$(1):SM$(MS[170]6)[178]"LENHOOSE:>"
1090 [153]"LOAD":[129] CH[178]1 [164] MS[170]4:[153]SM$(CH):[130]CH:[153]"(null).(null). ((null)/(null))?"
1095 [161] A$:[139] A$[178]"" [167] 1095
1100 [139] A$[178]"Y"[167]1115
1105 [139] A$[178]"N"[167] [153]"(null)E-ENTER MENU!!!":[137] 1060
1110 [137] 1095
1115 FL$[178]"SB#"[170][201]([196](SUB),1)
1120 MS[178]MS[170]1:SM$(MS[170]6)[178]"=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
1125 SM$(MS[170]7)[178]">"
1130 [159] 2,8,2,"@0:"[170]FL$[170]",S,W"
1135 [129]SR[178]1[164]MS[170]7:[152]2,SM$(SR):[130]SR:[160]2:[156]:[137]5
1140 [153]"LOADVALDIT MENUS"
1145 [153][166]9)"1....(null)AIN MENU":[153][166]9)"2....PEEKULLETIN MENU"
1150 [153][166]9)"3....(null)ESSAGE MENU":[153][166]9)"4....(null)UB-BOARD MENUS"
1155 [153]"(null)ELECT>"
1160 [161]A$:[139]A$[178]""[167]1160
1165 [139]A$[179]"1"[176]A$[177]"4"[167]5
1170 [139]A$[178]"1"[167]FL$[178]"MAIN":[141]965:[137]1260
1175 [139]A$[178]"2"[167]FL$[178]"BULLD":[141]835:[137]1260
1180 [139]A$[178]"3"[167]FL$[178]"MMENU":[141]835:[137]1260
1185 [153]"LOADVALDIT SUB-BOARD MENUS"
1190 [153]"(null)HICH (1-3/0 TO RETURN TO MENU)?"
1195 [161]A$:[139]A$[178]""[167]1195
1200 [139]A$[178]"0"[167]1140
1205 [139]A$[179]"1"[176]A$[177]"3"[167]1195
1210 [141]965
1215 [139][201](MO$(8),2)[178]"#1"[176][201](MO$(8),2)[178]"-"[167]M8[178]1
1220 [139][201](MO$(4),2)[178]"#2"[176][201](MO$(4),2)[178]"-"[167]M4[178]1
1225 [139][201](MO$(5),2)[178]"#3"[176][201](MO$(5),2)[178]"-"[167]M5[178]1
1230 [139]M8[178]1[175]M4[178]1[175]M5[178]1[167][153]"(null)O SUB-BOARDS PRESENT!":[129]T[178]1[164]2000:[130]T:[137]5
1235 [139]A$[178]"1"[175]M8[178]1[167][156]:[137]1185
1240 [139]A$[178]"2"[175]M4[178]1[167][156]:[137]1185
1245 [139]A$[178]"3"[175]M5[178]1[167][156]:[137]1185
1250 A[178][197](A$):[151]900,A:[156]:A[178][194](900)
1255 FL$[178]"SB#"[170][201]([196](A),1):[141]835
1260 [129]MD[178]1[164]MO[171]1:[153]MD;"...";MO$(MD):[130]MD
1265 [153]:[153]"0 TO EXIT TO MAIN MENU."
1270 [153]"VALNTER LENHANGES IN (null)OWER LENASE (null)NLY!"
1275 [133]"WHICH DO YOU WANT TO EDIT";EM
1280 [139] EM[178]0[167] 5
1285 [139] EM[177]MO[171]1[167]1275
1290 [153]"(null)OU CAN:  [STR$] STR$ELETE OPTION":[153]"          [LEN] LENHANGE OPTION"
1295 [153]"          [VAL] VALXIT"
1300 [161]A$:[139]A$[178]""[167]1300
1305 [139]A$[178]"E"[167]5
1310 [139]A$[178]"D"[167]1325
1315 [139]A$[178]"C"[167]1340
1320 [137] 1300
1325 MO$(EM)[178]"-"
1330 [159]2,8,2,"@0:"[170]FL$[170]",S,W"
1335 [129]MS[178]1[164]MO:[152]2,MO$(MS):[130]MS::[160]2:[137]5
1340 [153]"VALNTER LETTER AND NEW NAME OF THIS OPTION"
1345 [133] CO$
1350 MO$(EM)[178]CO$
1355 [137]1330
1360 G2$[178] "OPENON VALDIT (null)ENUS AND PEEKULLETINS               ":[141]1630:[153]
1365 [153]"LIST      1) VALDIT LEFT$OWDE MESSAGE"
1370 [153]"      2) VALDIT PEEKYE MESSAGE"
1375 [153]"      3) VALDIT (null)EW (null)SER MESSAGE"
1380 [153]"      4) VALDIT (null)OTICES"
1385 [153]"      5) VALDIT PEEKULLETINS"
1390 [153]"      6) VALDIT (null)UB-BOARD PEEKULLETINS"
1395 [153]"      7) VALDIT (null)OLL"
1400 [153]"      8) VALDIT (null)AIN (null)ENU "
1405 [153]"      9) VALDIT PEEKULLETINS (null)ENU"
1410 [153]"      0) VALDIT (null)UB-PEEKOARD (null)ENUS"
1415 [153]"     (null)ELECT (0-9/ * = (null)AIN (null)ENU)"
1420 [161]A$:[139]A$[178]""[167]1420
1425 [139]A$[178]"1"[167]FL$[178]"HOWDE":[141]1485:[137]1525
1430 [139]A$[178]"2"[167]FL$[178]"BYE":[141]1485:[137]1525
1435 [139]A$[178]"3"[167]FL$[178]"NEW":[141]1485:[137]1525
1440 [139]A$[178]"4"[167]FL$[178]"NOTICES":[141]1485:[137]1525
1445 [139]A$[178]"7"[167]FL$[178]"POLL":[141]1485:[137]1525
1450 [139]A$[178]"8"[167]FL$[178]"MAIN":[141]1485:[137]1525
1455 [139]A$[178]"0"[167]FL$[178]"SB#":[141]1665:[141]1485:[137]1525
1460 [139]A$[178]"9"[167]FL$[178]"BULLD":[141]1485:[137]1525
1465 [139]A$[178]"5"[167] 1530
1470 [139]A$[178]"6"[167] 1565
1475 [139]A$[178]"*"[167] 5
1480 [137]1360
1485 [153]"LOAD(null)EADING "FL$"..."
1490 [159]15,8,15:[159]3,8,3,"0:"[170]FL$[170]",S,R":[132]15,ER:[139]ER[178]0[167]1500
1495 [160]3:[160]15:[153]"(null)OT CREATED.":[142]
1500 [151]49,[194](47):[151]50,[194](48):[134] SM$(400):LN[178]0
1505 LN[178]LN[170]1:[139]LN[178]400[167]1520
1510 [132]3,SM$(LN):SS[178]ST:[139]SS[179][177]0[167]1520
1515 [137] 1505
1520 [160]3:[160]15:[142]
1525 [141]660:[137]5
1530 FL$[178]"BULLD":[141] 835
1535 [139] MO[179][178]3[167][153]"(null)O BULLETINS PRESENT ON MENU!":[129]T[178]1[164]2000:[130]T:[137]5
1540 [129]MD[178]1[164]MO:[153]MO$(MD):[130]MD
1545 [133]"(null)HICH BULLETIN DO YOU WISH TO EDIT";FL$
1550 [139]FL$[178]"0"[167]5
1555 [139]FL$[178]"D"[176]FL$[178]"O"[176]FL$[179]"A"[176][195](FL$)[177]1 [167]1545
1560 [141]1485:[141]660:[137]5
1565 [153]"LOAD(null)UB-PEEKOARD PEEKULLETIN VALDITOR"
1570 [141] 965
1575 [129]X[178]1[164]6:[153]X" - "NA$(X):[130]
1580 [133]"(null)HICH:(1-6)>";SS$
1585 SS[178][197](SS$):[139]SS[179]1[176]SS[177]6[167]1580
1590 FL$[178]"SB#"[170][201]([196](SS),1):[141]835
1595 [153]"LOAD(null)UB-PEEKOARD OPEN"NA$(SS)" VALDITOR"
1600 [129] MD[178]1[164]MO:[153]MO$(MD):[130]MD
1605 [133]"(null)HICH:(A-P)*=ATNBORT>";F$
1610 [139]F$[178]"D"[176]F$[178]"S"[176]F$[178]"M"[167]1595
1615 [139]F$[178]"*"[167][138]
1620 FL$[178]F$[170][201]([196](SS),1):[141]1485:[141]660:[137]5
1625 [156]:[134] SM$(17):[129] MS[178]1 [164] 16
1630 [153]G1$:[153]G2$:[153]"ON";:[129]X[178]1[164]40:[153]"CONTUSR";:[130]X:[142]
1635 [159]2,8,2,"0:MB#,S,A"
1640 [153]"LOADVALNTER (null)ATN(null)VALSYS OR (null)OPICSYS":[153]"ASCOR VALACH (null)UB-PEEKOARD:"
1645 [129]X[178]1[164]6:[153]"#"X"WAIT";:[133]T$
1650 [139][195](T$)[178][179]1[167][153]"ONPEEKLANK":[152]2,"PEEKLANK":[137]1660
1655 [152]2,T$
1660 T$[178]"":[130]X:[160]2:[137]305
1665 [153]:[133]"(null)HICH SUB-BOARD (1-6)   1CMDCMDCMD";A$:FL$[178]FL$[170]A$:[142]
1670 [151]212,0:[161] B$:[139] B$[178]"" [167] 1670
1675 L[178][195](RP$)
1680 [139]L[178]240[167]RP$[178]RP$[170][199](13):[137]1725
1685 [139] B$[178][199](20)[175]L[178][179]0[167]1670
1690 [139] B$[178][199](20)[175]L[177]0[167]L[178]L[171]1:RP$[178][200](RP$,L):[153]B$;:[137]1670
1695 [139]B$[178]">"[167]1670
1700 [139]B$[178]"LOAD"[176]B$[178]""[176]B$[178]""[176]B$[178]"ON"[176]B$[178]"CMD"[176]B$[178]""[167][151]212,1:[137]1710
1705 [139] B$[178][199](13)[175][195](RP$)[179][177]0[167][153]:[137]1725
1710 RP$[178]RP$[170]B$
1715 [153] B$;
1720 [137] 1670
1725 SM$(EL)[178]RP$:[141]665:[137]685
1730 P1[178]1:PP[178]0:[159]2,8,2,"0:"[170]A$[170]",S,W":[129]X[178]1[164]9:[152]2,PP:[130]X
1735 [152]2,P1:[152]2,"(null)OBODY":[152]2,P1:[160]2
1740 [159]2,8,2,"0:USER LOG,S,W":[152]2,"(null)YSOP":[152]2,"LEN-64":[152]2,"LEFT$OME"
1745 [152]2,"(null)YSOP":[152]2,"966XXX-XXX-XXXX":[160]2:[142]
1750 [159]2,8,2,"0:"[170]A$[170]",S,W:PRINT#2,PP:PRINT#2,PP:PRINT#2,PP:PRINT#2,PP
1755 PRINT#2,PP:PRINT#2,PP:PRINT#2,PP:PRINT#2,P1:PRINT#2,PP$:PRINT#2,PP:CLOSE2:RETURN
1760 D=0:OPEN2,8,2,"@0:"+A$+",S,W"
1765 FORX=1TO4:PRINT#2,D:NEXT:CLOSE2:RETURN
1770 G2$= "[147][159][145] [208]OLLING [211]YSTEM                         ":GOSUB1630:PRINT
1775 PRINT"[155]      1) [197]DIT [208]OLL"
1780 PRINT"      2) [193]CTIVATE [208]OLL"
1785 GETA$:IFA$=""THEN1785
1790 IFA$="1"THENFL$="POLL":GOSUB1485:GOTO1525
1795 IFA$="2"THENJ=1:GOSUB1805:GOTO1770
1800 RUN
1805 OPEN2,8,2,"0:MB#,S,R":INPUT#2,A:INPUT#2,B:INPUT#2,C:INPUT#2,D:INPUT#2,E
1810 INPUT#2,F:INPUT#2,G:INPUT#2,H:INPUT#2,I:INPUT#2,J
1811 INPUT#2,K$:INPUT#2,L:INPUT#2,M$:INPUT#2,N$:INPUT#2,O$:INPUT#2,P$:INPUT#2,Q$
1812 INPUT#2,R$:CLOSE2:IFL=1THENL=.:GOTO1815
1813 L=1
1815 OPEN3,8,3,"@0:MB#,S,W":PRINT#3,A:PRINT#3,B:PRINT#3,C:PRINT#3,D:PRINT#3,E
1820 PRINT#3,F:PRINT#3,G:PRINT#3,H:PRINT#3,I:PRINT#3,J
1822 PRINT#3,K$:PRINT#3,L:PRINT#3,M$:PRINT#3,N$:PRINT#3,O$:PRINT#3,P$:PRINT#3,Q$
1824 PRINT#3,R$:CLOSE3:RETURN
2000 PRINT"[147][197]NTER [206][193][205][197][158] OR [212]OPIC[158]":PRINT"[198]OR [197]ACH [211]UB-[194]OARD:"
2005 FORX=1TO6:PRINT"#"X"[146]";:INPUTT$(X)
2010 IFLEN(T$(X))=<1THENPRINT"[145][194]LANK":T$(X)="[194]LANK":GOTO2030
2030 NEXTX
2200 OPEN2,8,2,"0:MB#,S,R":OPEN3,8,3,"MB#.,S,W"
2202 FORX=1TO12:INPUT#2,A$:PRINT#3,A$:NEXT:CLOSE2:FORX=1TO6:PRINT#3,T$(X):NEXT
2205 CLOSE3:OPEN15,8,15:PRINT#15,"S0:MB#"
2210 PRINT#15,"R0:MB#=MB#.":CLOSE15:RUN